home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / COMMADIO / GTPCPS44.LZH / PCP-NODE.SCR < prev    next >
Text File  |  1988-12-30  |  2KB  |  68 lines
  1. ;  GTPCP\V4.4 PCP-NODE SCRIPT
  2. ;  (C) Perry Alexander - Dec 1988
  3. ;  GT Power Version 14.03
  4. ;  Script to Selected PCP Node
  5. RMWIN
  6. CLEAR
  7. SCREEN ON
  8. V10 = 1
  9. MKWIN 1 1 80 24 " PC Pursuit Node Menu "
  10. WRITELN "                         ╤                         ╤                         "
  11. WRITELN "  Atlanta ....... GAATL  │  Los Angeles ... CALAN  │  Salt Lake...... UTSLC  "
  12. WRITELN "  Boston ........ MABOS  │  Miami ......... FLMIA  │  San Diego...... CASDI  "
  13. WRITELN "  Chicago ....... ILCHI  │  Milwaukee ..... WIMIL  │ -San Fransisco . CASFA  "
  14. WRITELN "  Cleveland ..... OHCLE  │ -Minneapolis ... MNMIN  │ -San Jose ...... CASJO  "
  15. WRITELN "═════════════════════════╪═════════════════════════╪═════════════════════════"
  16. WRITELN "  Colton ........ CACOL  │  Newark ........ NJNEW  │ -Santa Ana ..... CASAN  "
  17. WRITELN "  Dallas ........ TXDAL  │  New York City . NYNYO  │  Seattle ....... WASEA  "
  18. WRITELN "  Denver ........ CODEN  │  Oakland ....... CAOAK  │  St Louis .....  MOSLO  "
  19. WRITELN "  Detroit ....... MIDET  │ -Palo Alto ..... CAPAL  │  Tampa ......... FLTAM  "
  20. WRITELN " -Glendale ...... CAGLE  │  Philadelphia .. PAPHI  │  Washington .... DCWAS "
  21. WRITELN "═════════════════════════╪═════════════════════════╪═════════════════════════"
  22. WRITELN " -Hartford ...... CTHAR  │ -Phoenix ....... AZPHO  │  PCP NetExchange  NXCH  "
  23. WRITELN "  Houston ....... TXHOU  │ -Portland ...... ORPOR  │  Exec-PC .......  EXPC  "
  24. WRITELN "  Kansas City ... MOKCI  │ -Res. Tri. Park  NCRTP  │  Portal ........  PRTL  "
  25. WRITELN "  .....................  │  Sacramento      CASAC  │  Plink .........  PLNK  "
  26. WRITELN "═════════════════════════╧═════════════════════════╧═════════════════════════"
  27. WRITELN "                     - 2400 baud not supported by node        "
  28. WRITELN
  29. WRITE   "          Enter PCP Code for Node or type QUIT to exit PCP --> _____"
  30. WRITE    ""
  31. READLN V1
  32. V1 UPPER %1
  33. FLUSH
  34. CASE %1 OF
  35.  ~ quit
  36.    RMWIN
  37.    WRITELN
  38.    CLEAR
  39.    CHAIN "PCP-QUIT.SCR"
  40.  ~ nxch
  41.    CLEAR
  42.    RMWIN
  43.    WRITELN
  44.    CHAIN "PCP-NXCH.SCR"
  45.  ~ expc
  46.    CLEAR
  47.    RMWIN
  48.    WRITELN
  49.    CHAIN "PCP-EXPC.SCR"
  50.  ~ prtl
  51.    CLEAR
  52.    RMWIN
  53.    WRITELN
  54.    CHAIN "PCP-PRTL.SCR"
  55.  ~ plnk
  56.    CLEAR
  57.    RMWIN
  58.    WRITELN
  59.    CHAIN "PCP-PLNK.SCR"
  60. ESAC
  61. WRITE   "               Enter desired baud rate [3, 12 or 24]--> __"
  62. WRITE    ""
  63. READLN V2
  64. FLUSH
  65. ESAC
  66.    RMWIN
  67.    CHAIN "PCP-DIAL.SCR"
  68.